(custom-save-delete): First scan the custom-file. Thus exit with an

error in case the custom-file contains a non-closed open parenthesis.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 61bc9629aed02009deaf3e3afa1348476616666f..5272f8a7a87ffc118aaf64f3373ccab3bf0feb64 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3100,6 +3100,7 @@ Leave point at the location of the call, or after the last expression."
   (let ((default-major-mode))
     (set-buffer (find-file-noselect (custom-file))))
   (goto-char (point-min))
+  (save-excursion (forward-sexp (buffer-size)))        ; Test for scan errors.
   (catch 'found
     (while t
       ;; Skip all whitespace and comments.